home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -screenplay- / shareware / amigapmars / rave.red < prev    next >
Text File  |  1995-07-16  |  784b  |  31 lines
  1. ;redcode-94
  2. ;name Rave
  3. ;author Stefan Strack
  4. ;strategy Carpet-bombing scanner based on Agony and Medusa's
  5. ;strategy (written in ICWS'94)
  6. ;strategy Submitted: @date@
  7. ;assert CORESIZE==8000
  8.  
  9. CDIST   equ 12
  10. IVAL    equ 42
  11. FIRST   equ scan+OFFSET+IVAL
  12. OFFSET  equ (2*IVAL)
  13. DJNOFF  equ -431
  14. BOMBLEN equ CDIST+2
  15.  
  16.         org comp
  17.  
  18. scan    sub.f  incr,comp
  19. comp    cmp.i  FIRST,FIRST-CDIST        ;larger number is A
  20.         slt.a  #incr-comp+BOMBLEN,comp  ;compare to A-number
  21.         djn.f  scan,<FIRST+DJNOFF       ;decrement A- and B-number
  22.         mov.ab #BOMBLEN,count
  23. split   mov.i  bomb,>comp               ;post-increment
  24. count   djn.b  split,#0
  25.         sub.ab #BOMBLEN,comp
  26.         jmn.b  scan,scan
  27. bomb    spl.a  0,0
  28.         mov.i  incr,<count
  29. incr    dat.f  <0-IVAL,<0-IVAL
  30.     end
  31.